#!@PERL_EXECUTABLE@
## -*- mode: Perl -*-
##
## Copyright (c) 2018 The University of Utah
## All rights reserved.
##
## This file is distributed under the University of Illinois Open Source
## License.  See the file COPYING for details.

###############################################################################

use strict;
use warnings;

while (my $line = <>) {
  chomp $line;
  if ($line =~ m/^[\s\t]*\/\/[\s\t]*CHECK[:-]/ ||
      $line =~ m/^[\s\t]*\/\/[\s\t]*RUN:/) {
    #skip
  }
  else {
    print "$line\n";
  }
}

###############################################################################

## End of file.
